home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 October / 1984-10.d64 / vocab builder (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  4KB  |  142 lines
  1. 5 sys65517:ifpeek(781)=40thenprint"":goto10
  2. 6 print"[144]"
  3. 10 printchr$(14):dima%(100),w$(100),d$(100),wr$(100):d=0
  4. 30 print"[147][197]nter your name[146]":inputnm$:iflen(nm$)=0then30
  5. 35 iflen(nm$)>13thennm$=left$(nm$,13)
  6. 50 print"[147]"tab(int((22-len(nm$))/2)-1)nm$;"'s[146]":printtab(3)"[214]ocabulary [212]est[146]"
  7. 55 n$="":a$="":b$="":da$="":x%=0:i=0:j=0:forq=1to100:a%(q)=0:w$(q)="":d$(q)=""
  8. 60 wr$(q)="":next:printspc(9);"[205]enu":printspc(2);"1) [197]nter [206]ew [215]ords"
  9. 80 printspc(2);"2) [211]tudy [217]our [215]ords":printspc(2);"3) [212]ake [193] [212]est"
  10. 100 printspc(2);"4) [197]nd":print" press 1-4 to continue[146]"
  11. 120 getz$:c$=z$:v=val(z$):ifz$=""or(v<1orv>4)then120
  12. 130 ifv=4then190
  13. 140 input"[196][146]isk or [212][146]ape";z$:ifz$<>"t"andz$<>"d"thenprint"[145][145][145][145]":goto130
  14. 150 a$="[157]                      ":ifz$="d"thend=1
  15. 160 onvgoto230,810,810
  16. 190 end
  17. 230 print"[147][197]nter # of new [215]ords "
  18. 235 inputx%:ifx%>100orx%<1then230
  19. 250 fori=1tox%
  20. 260 print"[147][197]nter [215]ord"i:inputw$(i)
  21. 265 iflen(w$(i))=0thenprint"[145][145][145][145][145][145]":goto260
  22. 270 print"[197]nter [196]efinition":inputd$(i)
  23. 275 iflen(d$(i))=0thenprint"[145][145][145]":goto270
  24. 280 next
  25. 300 print"[147]":fori=1tox%
  26. 310 print" [215]ord"i"[157]:";w$(i)
  27. 320 print" [196]efinition:"d$(i):print""
  28. 330 if(i/3)=int(i/3)andx%=3then360
  29. 332 if(i/3)=int(i/3)andx%<>ithengosub2000
  30. 340 next
  31. 360 print"[193]ny [195]orrections(y/n)? [146]"
  32. 380 getz$:ifz$=""or(z$<>"y"andz$<>"n")then380
  33. 390 ifz$="y"then420
  34. 400 ifz$="n"then520
  35. 420 i=0:input"[147][215]hich entry";i
  36. 435 ifi=0ori>x%thenprint"[145][145][145][145]":goto420
  37. 440 print"[215]ord"i"[157]:";w$(i)
  38. 450 print"[196]efinition:";d$(i)
  39. 470 print"[197]nter [215]ord"i:inputw$
  40. 480 w$(i)=w$
  41. 490 print"[197]nter [196]efinition":inputd$
  42. 500 d$(i)=d$
  43. 510 goto300
  44. 520 input"[212]oday's [196]ate: ";da$
  45. 540 print"[147]     [208]lease [215]ait"
  46. 550 print"[201]'m [211]aving [217]our [215]ords [146]"
  47. 560 n$="test "+da$
  48. 565 ifd=1thenn$="test "+da$+",s,w"
  49. 570 open15,8,15:open1+d,1+7*d,1+d,n$:input#15,a$,b$
  50. 572 ifa$="63"thenclose(1+d):close15:goto520
  51. 575 ifa$<>"00"thenprintb$:fori=1to3000:next:close(1+d):close15:goto50
  52. 580 print#(1+d),x%:fori=1tox%
  53. 590 print#(1+d),w$(i):print#(1+d),d$(i)
  54. 600 nexti:close(1+d):close15:goto50
  55. 810 print"[147] [193] [212]est [205]ade [202]ust [198]or[146]":printtab(int((22-len(nm$))/2)-1)""nm$"[146]"
  56. 820 print"[197]nter the [212]est [196]ate ":inputda$
  57. 870 print"[147]     [208]lease [215]ait"
  58. 880 print"  [204]oading the [215]ords[146]"
  59. 890 n$="test "+da$
  60. 895 ifd=1thenn$="test "+da$+",s,r"
  61. 900 open15,8,15:open1+d,1+7*d,2*d,n$:input#15,a$,b$
  62. 902 ifa$="62"thenclose1+d:close15:goto810
  63. 905 ifa$<>"00"thenprintb$:fori=1to3000:next:close(1+d):close15:goto50
  64. 910 input#(1+d),x%:fori=1tox%
  65. 920 input#(1+d),w$(i)
  66. 930 ifw$(i)=""thengoto950
  67. 940 goto960
  68. 950 i=x%:goto970
  69. 960 input#(1+d),d$(i)
  70. 970 nexti
  71. 980 close(1+d):close15
  72. 1030 fori=1tox%
  73. 1040 a%=x%*rnd(1)+1:ifi=1thena%(i)=a%:goto1070
  74. 1050 forj=1tox%
  75. 1060 ifa%=a%(j)thenj=x%:next:goto1040
  76. 1065 next
  77. 1070 a%(i)=a%:next
  78. 1110 ifc$="2"thengoto1510
  79. 1120 print"[147] ";nm$;"'s [209]uiz [146]"
  80. 1130 n%=0
  81. 1140 fori=1tox%
  82. 1150 print""
  83. 1160 n=a%(i)
  84. 1170 print"[196]efinition: ";:printd$(n)
  85. 1180 print"[197]nter the [215]ord":inputwo$:ifwo$=""then1180
  86. 1190 ifwo$=w$(n)thenprint"[195][207][210][210][197][195][212] !":forz=1to1500:next:goto1230
  87. 1200 print"[211]orry, the word was:":printw$(n):forz=1to1500:next
  88. 1210 n%=n%+1
  89. 1220 wr$(n)=w$(n)
  90. 1230 print"[147]":nexti
  91. 1250 print"[217]ou got"n%"wrong":print"out of"x%:gosub1900:ifn%=0then2100
  92. 1260 fori=1to3000:next
  93. 1270 print"[147][212]he word(s) that you":print"got wrong are:"
  94. 1280 j=1:pq=0:fori=1tox%
  95. 1290 ifwr$(i)=""then1310
  96. 1300 pq=pq+1:print"";wr$(i)
  97. 1305 ifpq<>5*jthen1310
  98. 1306 j=j+1:print" [193]ny key to continue[146]":poke198,0
  99. 1307 getz$:ifz$=""then1307
  100. 1308 print"[147]":nexti:goto50
  101. 1310 nexti:gosub2000:goto50
  102. 1510 print"[147] [200]it the [194]ooks "
  103. 1520 n%=0
  104. 1530 fori=1tox%
  105. 1540 print"":n=a%(i)
  106. 1550 j%=1:j1%=1
  107. 1560 print"[196]efinition: ";:printd$(n)
  108. 1570 wo$="":print"[197]nter the [215]ord":inputwo$
  109. 1580 ifwo$=w$(n)thenprint"[195][207][210][210][197][195][212] !":goto1790
  110. 1590 ifleft$(wo$,2)=left$(w$(n),2)thengoto1610
  111. 1600 goto1680
  112. 1610 ifj1%>1thengoto1750
  113. 1620 print"[217]ou're close":print"[212]ry again"
  114. 1630 j1%=j1%+1
  115. 1640 ifw$(n)=wr$(n)thengoto1670
  116. 1650 wr$(n)=w$(n)
  117. 1670 print"":goto1560
  118. 1680 ifj%>2thengoto1750
  119. 1690 print"[211]orry, ";nm$:print"you're not even close":print"[212]ry again"
  120. 1691 forz=1to2500:next:print"[147]"
  121. 1700 print"":j%=j%+1
  122. 1710 ifw$(n)=wr$(n)thengoto1740
  123. 1720 wr$(n)=w$(n)
  124. 1740 goto1560
  125. 1750 print"[211]orry, the word was:":print" "w$(n):forz=1to3000:next:print"[147]"
  126. 1760 ifw$(n)=wr$(n)thengoto1790
  127. 1770 wr$(n)=w$(n)
  128. 1780 n%=n%+1
  129. 1790 fortd=1to1500:next:print"[147]":nexti:goto1250
  130. 1900 ifn%=0thenprint"[199][210][197][193][212] [202][207][194]":return
  131. 1910 n=10-(n%/x%*10)
  132. 1920 ifn<6.5thenprint"[194]etter study more":return
  133. 1930 ifn<8thenprint"[193] little more study":print"needed":return
  134. 1940 ifn<9thenprint"[206]ot bad":return
  135. 1950 ifn<9.5thenprint"[199]ood job":return
  136. 1960 ifn<10thenprint"[214]ery good"return
  137. 1970 return
  138. 2000 print" [193]ny key to continue  "
  139. 2001 getmt$:ifmt$=""then2001
  140. 2002 print"[147]":return
  141. 2100 gosub2000:goto50
  142.